home *** CD-ROM | disk | FTP | other *** search
/ C++ für Kids / C++ for kids.iso / Buch / Bild1.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1999-01-29  |  1.3 KB  |  39 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "Bild1.h"
  6. //---------------------------------------------------------------------------
  7. //  Funktioniert nur, wenn TMovie in der Komponentenpalette sitzt !!!
  8. //---------------------------------------------------------------------------
  9. #pragma link "Movie2"      // Datei: Movie2.obj
  10. #pragma resource "*.dfm"
  11. TForm1 *Form1;
  12. //---------------------------------------------------------------------------
  13. __fastcall TForm1::TForm1(TComponent* Owner)
  14.     : TForm(Owner)
  15. {
  16. }
  17. //---------------------------------------------------------------------------
  18. void __fastcall TForm1::FormCreate(TObject *Sender)
  19. {
  20.   Movie1->Stretch = true;
  21. }
  22. //---------------------------------------------------------------------------
  23. void __fastcall TForm1::Oeffnen1Click(TObject *Sender)
  24. {
  25.   if (OpenDialog1->Execute ())
  26.   {
  27.     Movie1->Picture->LoadFromFile (OpenDialog1->FileName);
  28.   }
  29. }
  30. //---------------------------------------------------------------------------
  31. void __fastcall TForm1::Button1Click(TObject *Sender)
  32. {
  33.   if (OpenDialog1->Execute ())
  34.   {
  35.     Movie1->Picture->LoadFromFile (OpenDialog1->FileName);
  36.   }
  37. }
  38. //---------------------------------------------------------------------------
  39.